#!/usr/bin/perl

# todos
# File ID: 8e391288-5d46-11df-ac9f-90e6ba3022ac
# Konverterer fra UNIX til DOS

while (<>) {
	s/\r//g;
	s/\n/\r\n/g;
	print;
}
